Windows Forms - Objeto IS

O objeto is consegue identificar se é dígito(Numérico-0 a 9), letra(A a Z e a a z), espaço em branco ou pontuação.
Muito útil para classificar o tipo de um string antes de fazer uma conversão.

Module ObjetoIS

    'determinação do tipo de dado

    '            char meuchar = 'a';        //letra
    '            char meuchar = 'A';        //letra
    '            char meuchar = '5';        //digito
    '            char meuchar = '.';        //pontuação
    '            char meuchar = ',';        //pontuação
    '            char meuchar = ' ';        //espaço
    '            char meuchar = '\n';    //crlf
    ' Dim meuchar As Char = "\t" 'espaço

Verificando se é Numérico

    Function ENumerico(dado As Object) As Boolean
        'É um dígito Numérico(0 a 9)
        If Char.IsDigit(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

Verificando se é Letra

    Function ELetra(dado As Object) As Boolean
        'É uma letra(A a Z e a a z)
        If Char.IsLetter(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

Verificando se é Espaço em branco

    Function EEspacoEmBranco(dado As Object) As Boolean
        If Char.IsWhiteSpace(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

Verificando se é Pontuação

    Function EPontuacao(dado As Object) As Boolean
        If Char.IsPunctuation(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

End Module